home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / UserCode / setVar.tcl < prev    next >
Text File  |  1996-08-15  |  1KB  |  50 lines
  1. # FILE: setVar.tcl
  2. #
  3. # LAST UPDATE: 01/07/93 4:40:25 AM
  4. #
  5. # This file contains the following TCL procedure(s):
  6. #
  7. #    setVar -- sets a global variable
  8. #    getVar -- returns the value of a global variable
  9. #
  10. #    These routines simulate the absence of these correspoding
  11. #    commands from earlier versions of Alpha.  Useful working with
  12. #    old scripts.
  13.  
  14. # COPYRIGHT:
  15. #
  16. #    Copyright © 1993 by David C. Black
  17. #    All rights reserved.
  18. #
  19. #    Redistribution and use in source and binary forms are permitted
  20. #    provided that the above copyright notice and this paragraph are
  21. #    duplicated in all such forms and that any documentation,
  22. #    advertising materials, and other materials related to such
  23. #    distribution and use acknowledge that the software was developed
  24. #    by David C. Black.
  25. #
  26. #    THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
  27. #    IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  28. #    WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  29. #
  30. ################################################################################
  31.  
  32. # AUTHOR
  33. #    
  34. #    David C. Black
  35. #    Internet: black@mpd.tandem.com
  36. #    GEnie:    D.C.BLACK
  37. #    USnail:   6217 John Chisum Lane, Austin, Tx 78749-1838
  38. #
  39. ################################################################################
  40.  
  41. proc setVar {name value} {
  42.     upvar #0 $name theVar
  43.     set theVar $value
  44. }
  45.  
  46. proc getVar {name} {
  47.     upvar #0 $name theVar
  48.     return $theVar
  49. }
  50.